home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / boxes / vbabout / frmabout.frm next >
Text File  |  1995-12-28  |  4KB  |  132 lines
  1. VERSION 4.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "About..."
  5.    ClientHeight    =   2670
  6.    ClientLeft      =   3690
  7.    ClientTop       =   2160
  8.    ClientWidth     =   3750
  9.    Height          =   3075
  10.    Left            =   3630
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   2670
  15.    ScaleWidth      =   3750
  16.    ShowInTaskbar   =   0   'False
  17.    Top             =   1815
  18.    Width           =   3870
  19.    Begin VB.CommandButton cmdOK 
  20.       Caption         =   "OK"
  21.       Default         =   -1  'True
  22.       Height          =   315
  23.       Left            =   2760
  24.       TabIndex        =   0
  25.       Top             =   2220
  26.       Width           =   855
  27.    End
  28.    Begin VB.Label Label6 
  29.       Alignment       =   2  'Center
  30.       Caption         =   "Trademark"
  31.       Height          =   195
  32.       Left            =   120
  33.       TabIndex        =   6
  34.       Top             =   1920
  35.       Width           =   3495
  36.    End
  37.    Begin VB.Label Label5 
  38.       Alignment       =   2  'Center
  39.       Caption         =   "Copyright"
  40.       Height          =   195
  41.       Left            =   120
  42.       TabIndex        =   5
  43.       Top             =   1680
  44.       Width           =   3495
  45.    End
  46.    Begin VB.Label Label4 
  47.       Alignment       =   2  'Center
  48.       Caption         =   "CompanyName"
  49.       BeginProperty Font 
  50.          name            =   "MS Sans Serif"
  51.          charset         =   0
  52.          weight          =   700
  53.          size            =   9.75
  54.          underline       =   0   'False
  55.          italic          =   0   'False
  56.          strikethrough   =   0   'False
  57.       EndProperty
  58.       Height          =   255
  59.       Left            =   240
  60.       TabIndex        =   4
  61.       Top             =   1320
  62.       Width           =   3255
  63.    End
  64.    Begin VB.Label Label3 
  65.       Alignment       =   2  'Center
  66.       Caption         =   "FileDescription"
  67.       Height          =   435
  68.       Left            =   240
  69.       TabIndex        =   3
  70.       Top             =   780
  71.       Width           =   3255
  72.    End
  73.    Begin VB.Label Label2 
  74.       Caption         =   "App.Major && App.Minor"
  75.       Height          =   195
  76.       Left            =   960
  77.       TabIndex        =   2
  78.       Top             =   420
  79.       Width           =   2655
  80.    End
  81.    Begin VB.Label Label1 
  82.       Caption         =   "ProductName"
  83.       BeginProperty Font 
  84.          name            =   "MS Sans Serif"
  85.          charset         =   0
  86.          weight          =   400
  87.          size            =   13.5
  88.          underline       =   0   'False
  89.          italic          =   0   'False
  90.          strikethrough   =   0   'False
  91.       EndProperty
  92.       Height          =   375
  93.       Left            =   960
  94.       TabIndex        =   1
  95.       Top             =   60
  96.       Width           =   2655
  97.    End
  98.    Begin VB.Image imgAppIcon 
  99.       Height          =   555
  100.       Left            =   60
  101.       Top             =   60
  102.       Width           =   615
  103.    End
  104. End
  105. Attribute VB_Name = "frmAbout"
  106. Attribute VB_Creatable = False
  107. Attribute VB_Exposed = False
  108.  
  109. Private Sub cmdOK_Click()
  110.  
  111.     Unload Me
  112.     
  113. End Sub
  114.  
  115.  
  116. Private Sub Form_Load()
  117.  
  118.     'this is the only line you need to change
  119.     imgAppIcon.Picture = frmMain.Icon
  120.     '
  121.     Label1.Caption = App.ProductName
  122.     Label2.Caption = "Version " & App.Major & "." & App.Minor
  123.     Label3.Caption = App.FileDescription
  124.     Label4.Caption = App.CompanyName
  125.     Label5.Caption = App.LegalCopyright
  126.     Label6.Caption = App.LegalTrademarks
  127.     ''also available:  App.Comments, App.Revision, App.Title
  128.     
  129. End Sub
  130.  
  131.  
  132.